subroutine r2abij_t2efij_iefab_oc(r2, t2, &
              iabcd, icore, fact)
!
use mod_iop
use mod_size
use mod_orbit
use mod_ioff
implicit none
!
real*8, intent(in) :: fact
real*8, intent(in) :: iabcd(*)
real*8, intent(in) :: r2(*)
!
real*8, intent(inout) :: t2(*), icore(*)
!
!this is to do r2 = r2 + 0.5*t2(efij)*iefab
!
if(prec==8) then 
 call r2abij_t2efij_iefab_oc_d(r2, t2, &
              iabcd, icore, fact)
elseif(prec==4) then 
 call r2abij_t2efij_iefab_oc_s(r2, t2, &
              iabcd, icore, fact)
endif

return
end
